\\ or /Rx Rexx/DWaRFx/DWaRFSKICK.AmIRX <user> <secs>
//
\\
*/
;options results;kickafter=3;kb=0;'getmynick';mynick=result;parse arg nick wtime;evnum=Substr(Address(),Pos('.',Address()));Call Setclip('DFxTIME'evnum,Time());wtime=Substr(wtime,2);if nick='' then;Do;'echo p='d2c(27)'b«DWaRFSKiCK» Usage: DwSKICK [NICK] [SECONDS]';exit;End;if wtime='' then wtime=60;if datatype(wtime)~='NUM' then wtime=60;"say /me is going to force feed "nick" one of Listers drunken fry ups if he speaks in the next "wtime" seconds. - "d2c(2)"|DWaRFx-TNG|"d2c(2);"raw notice "nick" :Dont say a word in the next "wtime" seconds Or Kryton will be round that corner to Chloroform you! - "d2c(2)"|DWaRFx-TNG|"d2c(2);kicked=0;Call time(R);do until time(E)>wtime;'getline';parse upper var line ':'tnick'!'user'@'host' 'type' 'to' :'mess;if upper(nick)=tnick then if type=privmsg then;do;kb=kb+1;if kb>=kickafter then "say /kickban "nick" Watch OUT Im gonna Kill ya!.- "d2c(2)"|DWaRFx-TNG|"d2c(2);else;Do;'say /kick 'nick' arrrg! here comes a fried egg butty with chilli sauce and chutney! 'd2c(2)'|DWaRFx-TNG|'d2c(2);kicked=1;end;end;end;'echo p='d2c(27)'b«DWaRFSKiCK» 'd2c(2)'|DWaRFx-TNG|'d2c(2)' Fry up Kick for 'nick' is over.';if kicked=0 Then "raw notice "nick" :It's finished bud!......You were lucky, next time it could be a Sharmy Kebab Diablo! - "d2c(2)"|DWaRFx-TNG|"d2c(2);Else "raw notice "nick" :It's finished bud!.......You were unlucky.....better luck next time - "d2c(2)"|DWaRFx-TNG|"d2c(2);exit
